program lx
const m=3;n=6;
type a1=array[0..10] of integer;
var a:array[0..10] of a1;
used:array[1..10]of bool;
total:integer;
procedure print():void;
var i,j:integer;
begin
 total:=total+1;
 write('[',total,']');
 for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i][j])
   end
end
begin
print()
end